home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / wcspy20.zip / WCSPY.WCX (.txt) < prev   
Wildcat! WCX  |  1995-02-26  |  3KB  |  261 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  3329 bytes  01/29/123  04:31:04pm
  3. '! Code Segment Size  :2395 bytes
  4. '! Data Segment Size  :4812 bytes
  5. '! String Segment Size:934 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Sub Sub396
  9.       Declare Sub Sub484
  10.       Declare Sub Sub1119
  11.       Declare Sub Sub1571
  12.       Declare Sub Sub2287
  13.       Declare Sub Sub2314
  14.  
  15.       Dim s4463 As String*40
  16.       Dim i4528 As Integer
  17.       Dim s4531 As String*1
  18.       Dim nir4542 As NodeInfoRecord
  19.       Dim s4784 As String*8
  20.       Dim s4792 As String
  21.       Dim s4796 As String
  22.       Dim i4800 As Integer
  23.       Dim s4802 As String
  24.       Dim s4806 As String
  25.       Dim i4810 As Integer
  26.  
  27.       Dim s65535_ As String*1
  28.  
  29.       CarrierCheck(-1)
  30.       Sub396
  31.       Sub484
  32.       Sub1119
  33.       Do
  34.    65   Cls 
  35.         Print "@0D@wcSPY @0F@V" + "2.00" + "@0E@ (c)1994,1995 JG ";
  36.         If i4800 = 1 Then
  37.           Print s4792 + MakeWild.BBSName + "@0E@"
  38.         Else
  39.   139     Print s4796
  40.         End If
  41.   147   Print
  42.         WhoIsOnline 
  43.         s4531 = InputMask("@0D@wcSPY@0E@ [@0F@V@0E@]iew Node, [@0F@P@0E@]age Node, [@0F@Q@0E@]uit to BBS: ", "X", "", 1213417543)
  44.         s65535_ = s4531
  45.         If s65535_ = "V" Then GoTo 231
  46.         If s65535_ = "v" Then
  47.   231     Sub1571
  48.         Else
  49.   243     If s65535_ = "P" Then GoTo 281
  50.           If s65535_ = "p" Then
  51.   281       If i4800 = 1 Then
  52.               Sub2314
  53.             Else
  54.   308         Sub2287
  55.             End If
  56.   314     Else
  57.   320       If s65535_ = "Q" Then GoTo 358
  58.             If s65535_ = "q" Then
  59.   358         GoTo 376
  60.               GoTo 370
  61.             End If
  62.           End If
  63.         End If
  64.   370 Loop
  65.   376
  66.  
  67. '! Called 1 time
  68.       Sub Sub396
  69.         Dim s65526 As String
  70.         Dim dt65530 As DateTime
  71.  
  72.         CurrentDateTime dt65530
  73.         s65526 = "Program: " + ProgName + " "
  74.         s65526 = s65526 + FormatDate(dt65530.D, "mm/dd/yy") + FormatTime(dt65530.T, " hh:mm")
  75.         ActivityLog s65526
  76.       End Sub
  77.  
  78. '! Called 1 time
  79.       Sub Sub484
  80.         Dim l65464 As Long
  81.         Dim i65468 As Integer
  82.         Dim s65470 As String
  83.         Dim s65474 As String
  84.         Dim s65478 As String
  85.         Dim s65482 As String
  86.         Dim s65486 As String
  87.         Dim s65490 As String
  88.         Dim s65502 As String
  89.         Dim s65506 As String
  90.         Dim s65514 As String
  91.         Dim i65518 As Integer
  92.         Dim i65520 As Integer
  93.         Dim i65522 As Integer
  94.         Dim i65524 As Integer
  95.         Dim i65528 As Integer
  96.         Dim i65530 As Integer
  97.         Dim i65532 As Integer
  98.         Dim i65534 As Integer
  99.  
  100.         s65470 = Str(716176)
  101.         If Exists("Wcspy" + ".key") Then
  102.           Open "Wcspy" + ".key" For Input As 1
  103.           Input #1, s65478
  104.           Close 1
  105.           s4802 = MakeWild.BBSName
  106.           s4806 = MakeWild.SysopName
  107.           i65534 = Len(s4802)
  108.           i65532 = Len(s4806)
  109.           s65514 = Mid(s4802, 3, 1)
  110.           i65528 = Asc(s65514)
  111.           s65474 = Mid(s65478, 254, 1)
  112.   682     For i4810 = 253 To 1 Step - 1
  113.             s65506 = Mid(s65478, i4810, 1)
  114.             i65524 = Asc(s65506)
  115.             i65522 = i65524 - i65528
  116.             s65502 = Chr(i65522)
  117.             s65474 = s65474 + s65502
  118.           Next
  119.         End If
  120.   828   i65530 = Asc(Mid(s65474, 1, 1))
  121.         If i65530 = 211 Then
  122.           i65518 = i65518 + 1
  123.         End If
  124.   876   s65490 = Mid(s65474, 20, 6)
  125.         If s65490 = s65470 Then
  126.           i65518 = i65518 + 1
  127.         End If
  128.   921   s65486 = Mid(s65474, 54, i65532)
  129.         If s4806 = s65486 Then
  130.           i65518 = i65518 + 1
  131.         End If
  132.   969   i65520 = 54 + i65532
  133.         s65482 = Mid(s65474, i65520, i65534)
  134.         If s65482 = s4802 Then
  135.           i65518 = i65518 + 1
  136.         End If
  137.  1034   If i65518 = 4 Then
  138.           i4800 = 1
  139.         Else
  140.  1062     i4800 = 0
  141.         End If
  142.  1068
  143.       End Sub
  144.  
  145. '! Called 1 time
  146.       Sub Sub1119
  147.         s4792 = Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(32) + Chr(116) + Chr(111) + Chr(58) + Chr(64) + Chr(48) + Chr(70) + Chr(64) + Chr(32)
  148.         s4796 = Chr(64) + Chr(48) + Chr(67) + Chr(64) + Chr(78) + Chr(111) + Chr(116) + Chr(32) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101)
  149.         s4796 = s4796 + Chr(100) + Chr(58) + Chr(64) + Chr(48) + Chr(69) + Chr(64) + Chr(32) + Chr(83) + Chr(104) + Chr(97) + Chr(114) + Chr(101) + Chr(119) + Chr(97) + Chr(114) + Chr(101) + Chr(32)
  150.         s4796 = s4796 + Chr(86) + Chr(101) + Chr(114) + Chr(115) + Chr(105) + Chr(111) + Chr(110)
  151.       End Sub
  152.  
  153. '! Called 1 time
  154.       Sub Sub1571
  155.         Dim b65534 As Byte
  156.         Dim b65535 As Byte
  157.  
  158.         Print
  159.         Print "@0A@Please enter the node number to view: ";
  160.         Input i4528
  161.         GetNodeInfo nir4542, i4528
  162.         Cls 
  163.         Print
  164.         Print "@0D@wcSPY@0E@ Node Information for Node: "; i4528
  165.         Print
  166.         Print "@0B@Current Caller :@0F@ "; nir4542.CallersName
  167.         Print "@0B@User Status    :@0F@ ";
  168.         b65535 = nir4542.UserStatus
  169.         If b65535 = 0 Then
  170.           Print "None"
  171.         Else
  172.  1705     If b65535 = 1 Then
  173.             Print "File Transfer"
  174.           Else
  175.  1735       If b65535 = 2 Then
  176.               Print "Entering Message"
  177.             Else
  178.  1765         If b65535 = 3 Then
  179.                 Print "In a Door"
  180.               Else
  181.  1795           If b65535 = 4 Then
  182.                   Print "Dropped to Dos"
  183.                 Else
  184.  1825             If b65535 = 5 Then
  185.                     Print "Private Chat"
  186.                   Else
  187.  1855               If b65535 = 6 Then
  188.                       Print "Group Chat"
  189.                       GoTo 1885
  190.                     End If
  191.                   End If
  192.                 End If
  193.               End If
  194.             End If
  195.           End If
  196.         End If
  197.  1885   Print "@0B@Security Level :@0F@ ";
  198.         If i4800 = 1 Then
  199.           Print nir4542.Security
  200.         Else
  201.  1925     Print "@0C@[ Shareware Version ]"
  202.         End If
  203.  1934   Print "@0B@Calling From   :@0F@ "; nir4542.CallerFrom
  204.         s4784 = FormatTime(nir4542.TimeCalled.T, "hh:mm")
  205.         Print "@0B@Log in Time    :@0F@ ";
  206.         If i4800 = 1 Then
  207.           Print s4784
  208.         Else
  209.  2020     Print "@0C@[ Shareware Version ]"
  210.         End If
  211.  2029   Print "@0B@Baud Rate      :@0F@ ";
  212.         If nir4542.BaudRate = 0 Then
  213.           Print "Not Connected or Local Connect"
  214.         Else
  215.  2071     Print nir4542.BaudRate
  216.         End If
  217.  2084   Print "@0B@Previous Caller:@0F@ ";
  218.         If i4800 = 1 Then
  219.           Print nir4542.PrevCaller
  220.         Else
  221.  2128     Print "@0C@[ Shareware Version ]"
  222.         End If
  223.  2137   Print "@0B@Node Status    :@0F@ ";
  224.         b65534 = nir4542.NodeStatus
  225.         If b65534 = 0 Then
  226.           Print "Node Offline"
  227.         Else
  228.  2189     If b65534 = 1 Then
  229.             Print "Waiting for Calls"
  230.           Else
  231.  2219       If b65534 = 2 Then
  232.               Print "Signing On"
  233.             Else
  234.  2249         If b65534 = 3 Then
  235.                 Print "Logged In"
  236.                 GoTo 2279
  237.               End If
  238.             End If
  239.           End If
  240.         End If
  241.  2279   Print
  242.         WaitEnter 
  243.       End Sub
  244.  
  245. '! Called 1 time
  246.       Sub Sub2287
  247.         Cls 
  248.         Print "@0C@ This function is not available in the shareware version"
  249.         WaitEnter 
  250.       End Sub
  251.  
  252. '! Called 1 time
  253.       Sub Sub2314
  254.         Cls 
  255.         Print
  256.         i4528 = InputNumber("@0E@Send Page to which node #? ", 1, MaxNode)
  257.         Print
  258.         s4463 = InputMask("Message:", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  259.         SendPage(i4528, s4463)
  260.       End Sub
  261.